Graphics. 

This decent scribes ^'^^JT^MS^ . 
interface and programs needed to produce Qu-a<- * 

A wide variety of graphics can be Produced using the standard 
characters in various interface modes. 

* Keyboard - interactivity from the keyboard; 

* BASIC - use of PRINT, TAB, ARRAYS, 

Escape Sequences, etc. * 

* Editor - use of an editor to define and save 

* Editor 2UpJ aUs , iaou i ar and other graphics. 

This document will present a number of ways ^J^^ 1 - 
from a Previously def ned character set. T w £ Characters 
clever ways of controlling the ^! u ^°" J^ t on paper. The approach 
display on the screen * nd ?Vh* by way of Presenting examples 

2 VICTOR 9090 VIDEO DISPLAY SYSTEM 

to produce character graphics. 

dedicated to the Patterns of dots < CRT Screen? The hardware is 
to generate a Particular symbol on the screen^ ^"particular 
designed so that when the CRT beam js pointing a ^ ^ 
location on the screen that bit of data t™ di£P iayed at that 
associated with the portl ^x?^^ h *?he? the beam is on, the screen 
locaation on the screen co ^ rol J r w ^r e ^ h e screen goes dark. The 
is made to glow at p^^i °J S °^ ected S part of the system 
set of graphics to b f f . ^ s ^ff y ^em illoaded in response to a 
OT^-TSKi STd^a&E are loaded into main memory 
as part of the "cold boot" process. 

SS^in^STtrSKlS* peters This is * ^1^2^^ 

ScOT &,^K- *&*& » °SE^T the character to 



be displayed. 

3. CHARACTER SETS 

The initial release of the VICTOR 9909 System Generation process 
allows the user to choose between two character sets. One is 
described as the VTT52 Type Display and the other as the Victor 
International. The VT52 ASCII set has 128 characters and the 
International set has 256. The System Generation process allows 
the choice of one or the other as the set to be used. These two 
character sets are shown below in Figures 7 and 3. 

This is not to say that character sets other than VT52 ASCII and 
the Victor International 81 set are not available with the VICTOR 
9600. There is a variety of other character sets of various 
standards CIBM* etc> and languages that may be used providing 
different capabilities and effects using character graphics. 
Additionally a user may alter an already existing character set or 
define a completely unique set <using a special Victor 9009 
utility) in order to satisfy a special set of requirements. 

The more familiar graphics of a character set as displayed on the 
CRT are the alphabetics* numerics* and special characters 
accessible directly from the keyboard. There are* however* 
additional characters accessible from the keyboard that are 
avaialable for use by programs. These characters are keyboard 
accessible when the system is in the Graphics Mode. In order to 
put the system into and out of the Graphics Mode two escape 
sequences are provided. They are! 

l.> Escape F Graphics Mode On 
2.) Escape G Graphics Mode Off 

There is a third group of characters not accessible by the 
keyboard with a single key stroke. This group* as well as the 
first two described above* is accessible by use of a third escape 
sequence! 

Escape 3 x where the hex value of x 
is interpreted literally. 

Short BASIC programs can be used to demonstrate how to access and 
display all the characters in a set. The character set used in the 
following discussion is the Victor International. If the VT52 
ASCII type is used* the results will not necessarily be the same. 

10 REM NON-GRAPHICS MODE DEMONTRATION <NONGRAF.BAS> 

20 REM THIS ROUTINE ACCEPTS A CHARACTER NUMBER 

30 REM FROM THE KEVBOARD AND DISPLAVS THE ASSOCIATED 

40 REM CHARACTER IN THE NORMAL <NON-GRAPHICS> MODE. 

50 DEFINT A-Z 

60 PRINT CHR*<27>* ,M E ,, *• 



70 INPUT "ENTER CHfiRRCTER NUMBER. %A 
9Q PRINT CHR$<FD 
110 GOTO 70 
120 END 

If NONGRAF above is- run and the values © to 32 are entered no 
character will be displayed. This is due to the fact that the 
program operates in the normal <non-graphic> mode and those 
characters numbbered from to 32 are accessable only in the 
graphics mode. If number 33 is entered the ! is displayed. 
Different characters will be displayed for input values from 33 to 
253. For those values from 97 to 123 the lower case alphabetics 
are displayed along with a few special character from 123 to 12S. 

10 GRAPHICS MODE DEMONSTRATION (GRAFMQDE.BAS) 

28 REM THIS ROUTINE ACCEPTS A CHARACTER NUMBER 

30 REM FROM THE KEVBOARD AND DISPLAVS THE ASSOCIATED 

40 REM GRAPHICS MODE CHARACTER. 

50 DEFINT A-Z 

60 PRINT CHR$<27>; w E M ; 

70 INPUT "ENTER CHARACTER NUMBER. ".R 

80 PRINT CHR*<27>; H F M ; 

90 PRINT CHR*<fl> 

100 PRINT CHR*<27); ,, G M ; 

110 GOTO 70 

120 END 

This second program differs from the first in that the graphics 
mode is entered at line #30 and exited at line #100. If the , 
character numbers to 32 are entered into this program > that 
group of characters not accessible by NONGRAF is still not 
accessible. But they are accessible by entering the numbers 97 to 
128. However/ those lower case alphabetics and special characters 
which appear for these values in the normal mode are no longer 
accessible. All other values should produce the same characters as 
for NONGRAF. 

10 REM LITERAL MODE DEMONSTRATION <LTRLMODE.BAS> 

20 REM THIS ROUTINE ACCEPTS A CHARRCTER NUMBER 

30 REM FROM THE KEVBOARD AND DISPLAVS THE ASSOCIATED 

40 REM CHARACTER AFTER INTERPRETING THE INPUT 

50 REM NUMBER LITERALLV. 

60 DEFINT A-Z 

70 PRINT CHR$<27)J"E"J 

80 INPUT "ENTER CHARACTER NUMBER. %A 

90 PRINT CHRf<27>; M S M ;CHR$<A> 

100 GOTO 3© 

110 END 

This program is identical to NONGRAF. except for the second PRINT 
statement. This statement instructs BASIC to interpret the number 
entered literally. This program will display all characters of 



the set from © to 256. 

19 REM DISPLAY CHARACTER SET <DSPLAVCS.BAS> 

2© REM THIS ROUTINE USES ABSOLUTE CURSOR POSITIONING AHDD 

30 REM PRINTING OF CHARACTERS IN THE 'LITERAL" MODE IN 

40 REM ORDER TO DISPLAV ALL THE AVAILABLE CHARACTERS. 

50 PRINT CHR$<27>;"E M 

60 WIDTH 255 

70 PRINT " 123456789 10"; 

SO PRINT " 11 12 13 14 15 16 17 18 19" 

90 PRINT 

100 FOR B=0 TO 248 STEP 20 

110 PRINT b; 

120 C=38 

130 FOR 1=0 TO 19 

140 IF I+B=256 THEN STOP 

150 PRINT CHRf<27>J"V M ;CHR$<99>;CHR*<C); 

ISO PRINT CHR$<27> J "8 tt J CHR$< I+B> ; " " ; 

170 C=C+3 

ISO NEXT I 

190 PRINT 

200 NEXT B 

200 END 

This program will display in a tabular form all the characters 
available in the set alone with their number as shown below in 
Figures 7 and 8. 

4. USE OF ESCAPE SEQUENCES 

Although escape sequences are not strictly part of the subject of 
Character Graphics * they provide a means of simply accomplishing 
CRT display effects. Escape sequences are grouped into the 
following! 

* Cursor Control Functions 

* Screen * l,ine and character editing 

* Configuration functions 

* Operation mode functions 

* Special functions 

The following table lists the escape sequences incorporated into 
the system software. The leading "*"'s are not part of the escape 
sequence but indicate aa VT52 compatible sequence. Also brackets 
enclose parameters and are not part of the sequence. 

Cursor Functions 

*Esc H IB ;43 Sets the cursor at home position. 

*Esc C IB/ 43 Moves the cursor forward one 

character position. 
*Esc D IB/ 44 Moves the cursor backward one 



character pos i t i on . 

*Esc B IB.- 42 Moves the cursor down one line 

without changing columns. 

*Esc fl IB, 41 Moves the cursor up one line. 

*Esc I IB , 49 Moves the cursor to the same 

horizontal position on the 
preceding line. 

Esc n 1B,6E Reports the cursor position. 

Esc J lB,6fi Saves the cursor position. 

Esc k 1B,6B Returns the cursor to the 

previously saved cursor position. 

*Esc VC13Cc3 IB, 59 Moves the cursor via direct cursor 

addressing where "1" represents 
the hexadecimal line number and "c" 
represents the hexadecimal column 
number. The first line and the 
left column are both 28 <hex> <the 
smallest value of the printing 
characters > and increase from there. 
Since the lines are numbered from 1 
to 19 <hex> <from top to bottom) and 
the columns from 1 to 59 <hex> Cfrom 
left to rights you must add the 
proper line and column numbers to IF. 

Editing Functions 

IB, 45 Erases the entire screen. 

IB, 62 Erases from the start of the screen 

up to and including the cursor position. 

lB,4fl Erases from the cursor position to the 
end of the page. 

1B,6C Erases entire line. 

1B,6F Erases the beginning of the line up to 
and including the cursor position. 

1B,4B Erases from the cursor position to the 
end of the line. 

1B,4C Inserts a blank line; the current line 
and all following lines are moved down 
one line. The cursor is moved to the 
beginning of the blank line. 
Esc M 1B,4D Deletes the current line, placing the 

cursor at the beginning of the line, and 
moves all following lines up one line, 
fl blank line is inserted at line 24. 
Esc N 1B,4E Deletes cursor position character and 

shifts the rest of the line one 
character position to the left. 
Esc <§ IB, 40 Enters the insert character mode, 

allowing insert into text on the screen, 
fls each new character is inserted, the 
character at the end of the line is lost. 



Esc E 
Esc b 


*Esc J 


Esc 1 
Esc o 


*Esc K 


Esc L 



Esc 1B,4F Exits from the- insert character mode 

Configuration Functions 

Sets mode<s> as follows I 

Ps Mode 



Esc >cCPs3 



1B,7S 



1 
4 
5 
6 
8 



ft 
B 
C 



Enable 25th line 
Block cursor 
Cursor off 

Keypad shifted 
fluto line f"eed on receipt of 
a carriage return 
fluto carriage return on receipt 
of a line i^eed 
Increase audio volume 
Increase CRT brightness 
Increase CRT contrast 



Esc yCPsa 



IB* 79 Resets mode(s) as follows! 

Ps Mode 

1 Disable 25th line 

4 Underscore cursor 

5 Cursor on 

6 Keypad unshifted 

8 No auto line feed 

9 No auto carriage return 
fl Decrease audio volume 

B Decrease CRT brightness 

C Decrease CRT contrast 



Operation Mode Functions 



Esc P IB, 70 

Esc <i IB, 71 

Special Functions 

Esc > 1B,7D 

Esc < 1B,7B 

Esc v IB, 76 

Esc w IB, 77 

♦Esc 2 lB,7fl 

Esc 1 1B,5D 

Esc # IB, 23 

Esc < IB, 28 

Esc > IB, 29 



Enters the reverse video mode. 
Exits the reverse video mode. 



Disables the keyboard. 

Enables the keyboard. 

Enables wrap around at the end 

of the line. 
Discards at the end of the line. 
Resets terminal to power-on 
conf i gurat I on. 
Transmits the 25th line. 
Transmits the page. 
Sets high intensity. 
Sets low intensity. 



1B/2 B Clears the- foreground. 

^ sc n IB, 30 Sets the underline mode. 

|sc Jg 3 - Resets the underline mode, 

gc 1 1B 32 enables cursor blink. 

•£Z% IB. 33 Disables cursor blink. 

Esc X iR 3* Sets the test (literally? mode. 

g| | 1:1? lesets the test <Jit«rall ? > mode. 

generated by the key where - 

"m" represents the characters 
1, 2 or 3 

- 1 stands for unshifted mode 

- 2 stands for shifted mode 

- 3 stands for alternate mode 

"Ik" represents the logical key 
number <©0-67 hexadecimal) 

»kv" represents the hexadecimal 
ASCII key code of the new key 

Esc j ib,69 Retur"ns%onfisuration information. 

tu * i, Ml i M basic Program Provides a means for demonstrating 
The following BRbiL program "« n u ft «* The program will 
most of the escape sequences listed ^ v |^ u ™/^ er ,tered the. 
Prompt for an escape sequence. When ™* f*™^* "3" line, 
Program will move ^V^^^tins location! and then execute the 
display an ■*" to mark its f^f*J|^£he program will put an 
nnS'mfddltVTne 1 ^^ cursor to the left 

one character position. 

in REM ESCAPE SEQUENCE DEMONSTRATION <ESCflPSEQ.BflS> 
II IS THKROUrne ACCEPTS HGIVEN ESCAPE SEQU^CE 

II pIS f!5e ^esTtSe MfV^IFI In Sif 

S REM IN V VISU N AUZING . ^SEQUENCE. 

6Q PRINT 

78 PRINT 

30 PRINT 

90 PRINT 

100 PRINT 

140 PRINT «^^Sll44444444444444444444JJ4W^ i| , 
150 PRINT -3S^OT555S5535535S35W5^^^gg3 , 
160 PRINT "555555555555555555555555555555555555555 

ill input -Inter escrpe function: -,ef* 




IS© EFN= flSC<EF*> 

*9« PRINT CHR*<27>;"V ,, ;CHR$<41>;CHRf':71); / MOVE CURSOR 

290 PRINT "*";' DISPLAY ,, +" 

218 PRINT CHR$<8>; 

220 PRINT CHR$<27>*EF$*' EXECUTE SEQUENCE 

23© CONTCHR$=INKEY* 

240 IF CGNTCHR*="" THEN GOTO 236' WRIT FOR KEV ENTRV 

250 GOTO 60 

260 END 

5. CHARACTER GRAPHICS UNDER BASIC 
General ". 

Before continuing with schemes and examples for producing 
character graphics* the reader should be familiar withh the 
background material discussed above in this report: 

- The VICTOR 9088 Video Display System 

- Character Sets 

- Use of Escape Sequences 

The remainder of this section will show examples of character 
graphics us ins the BASIC language. 

The TAB Statement 

The following simple BASIC program: 

18 FOR X=l TO 25 
26 PRINT Tf»B<X>;"*" 
30 NEXT X 

will produce a line which begins at column zero and moves downward 
at approximately 68 degrees as shown in Figure 1. 

In other words, TABOO means move right to the Xth position before 
printing the asterisk. <Don't forget - column positions are 
numbered 8*1*2*3* ...>. 

Now* if we change line 28 to use a more complicated TAB expression 
such as! 

20 PRINT TABO^X/IO)*"*" 

a "curved" line is produced. This is because increasing X from 1 
to 25 will increase X*X/18 from 8.1 to 62.5. Since TAB uses the 
integer part of its argument* the asterisks will print in 
positions determined by the numbers in the third column of the 
following table! 





x*x.-ig 


TflBOS+X/l©/ 


1 


.1 


t 


2 


.4 





3 


.9 





4 


1.6 


1 


5 


2.5 


2 


6 


3.6 


3 


7 


4.9 


4 


8 


6.4 


6 


9 


8.1 


8 


10 


10.0 


10 



This approximates a "quadratic" curve as shown in Figure 2. 

TAB can have any legal BASIC expression as its argument, including 
expressions that use BASIC functions. The following is an example 
where line 20 prints the symbol "1" in the position determined by 
TABCX+3), while line 3© prints the symbol "2" in the position 
determined by TAB<ABS<3*X-36>+3>. The effect is something like 
graphing the path of two billiard balls. Notice that we are 
printing the "1" and "2" on alternate lines <see Figure 3>. CThis 
was done to simplify the program. > 

< Using RBS makes the 
10 FOR X=0 TO 25 <argument of TAB go 

20 PRINT "AI'S'TABCX+S);"!" <from +39 to +3 when 

30 PRINT ,, B: ,, JTAB<ABS<3*^<-36>+3>; ,, 2 ,, <X goes from to +12 
40 NEXT X <and from +6 to +42 

50 END <when X goes from +13 

<to +25 

Another way to use TABCX> is to read values of X from data 
statements. This allows us to print computer graphs that show 
pictorial ly what the data "looks" like. For example, the plot 
from the weekly weigh-ins of someone on a reducing diet is shown 
in Figure 4. 

1© PRINT "GRAPH OF WEEKLV WEIGHTS" 
20 PRINT " 

30 FOR K=100 TO 200 STEP 1©: PRINT K; I NEXT KIPRINT>Lines 
40 PRINT " "J ) 10-5© 

50 FOR K- TO 10: PRINT " + "J I NEXT K: PRINT >Print the 

> "Heading" 
>Lines. 
55 LET S - 
60 FOR X=l TO 30 

70 READ W <This line 

30 IF W<0 THEN 150 (graph. The 

90 PRINT X;TABC4>; ,, I M ;TAB<:W-100>/2+6>; ,, * ,, - (formulas used 
100 NEXT X <are explained 

< further on. 



110 DATA 155, 149,144, 141, 138, 135, 134.5, 132, 133, 133.7 
128 DATA 134, 135, 136, 136, 137, 139, 140.2, 142, 144, 147 

139 DATA ISO, 143, 135, 13Q, 126, 123, 121, 126, 119, 119 

140 DATA -1 

15© PRINT "RVERRGE WEIGHT =".: S^'38 
160 END 

The BASIC functions SIN, COS, LOG, EXP, TfiN, ATN, SGN evaluate the 
mathematic functions "Sine", "Cosine", "Logarithmic", 
"Exponential", "Tangent", " Arctangent " and "Sign" respectively for 
a given argument. These functions can be used to produce displays 
that show graphically what the functions look like and that are 
also attractive as design elements. 

Figure 5 is an example showing what the SIN function looks like 
when graphed using the following program! 

16 FOR F*-l TO 1.1 STEP .4 

20 PRINT TAB<9+30H«<F+n;iNTCF*100>/100; 

30 NEXT F 

40 PRINT 

50 FOR A = TO 6.3 STEP .1 

60 PRINT AJ TAB<10+30*<SINCA>+1 >>;"*" 

70 NEXT A 

80 END 

The first loop in lines 10-3© puts numbers across the top of the 
page to show what values of the SIN function are being graphed. 
<The numbers were selected as shown because we know from 
trigonometry that the SIN function has values that range from -1 
to +1). 

The second loop in lines 50-70 prints A <the argument), and then 
prints an asterisk in a position determined by the value of 
SIN<A>. We used SIN<R>+1 in our TAB so that the values -1 to +1 
would be changed to the range to 2 Cyou can't TAB negative 
values). We multiplied by 30 to spread the picture out from 
columns to 60, and then added 10 to shift all values 10 columns 
to the right <to leave room for print A). So the final graph goes 
from 10 to 70. On a terminal with a smaller number of columns, 
the multiplier 30 should be reduced to about 15. 

Of course, we can print other things besides a single asterisk 
"*". See Figure 6. Figure 6 was generated by combining functions 
and putting multipliers in front of the arguments giving 
"intermodulation" affects. 

The combined function 

V=C0S<2*A>+SIN<A) 

was used. The two signals are "90 degrees out of phase", and the 



fir-si one has "twice the frequency" of the second. 

By running the following programs* the graphs pictured in Figures 
6 and 6R were produced. 

10 FOR A=0 TO 9.5 STEP .2 

26 LET V=C0ST<2*A>+SIN(fi> 

36 PRINT TflB<15*V+30>; M HflRVEV KILOBIT" 

40 NEXT A 

50 END 

or 

10 FOR fl=0 TO 9.5 STEP .2 
20 LET V=C0ST<2*fl)+SIN<fi> 
30 PRINT TRflBa5*V+30?.: "V* 
40 NEXT fi 
50 END 

Additional Examples 

This section lists three BASIC programs which .produce examples 
that are called CALENDAR, BARGRAPH, AND 3D. The results are 
pictured in Figures 9, 10, and 11. 

The following program will display a calender for the given month 
of the year 1982. It will first ask for the month desired and wait 
for a number in the range of 1 to 12 to be entered. After the 
entry it will display the month's calendar and then wait for a key 
to be depressed when it will return to the BASIC interpreter. 

10 REM CALENDAR DEMONSTRATION (CALENDAR. B AS > 
20 WIDTH 255 
30 DEFINT A-Z 

40 VR*=" 1932": INPUT "Enter month <l=January>";MN 
50 DATA JANUARV, 5, 31 , FEBRUARY 1 , 23, MARCH, 1 , 31 
60 DATA APRIL, 4, 30, MAV, 6, 31, JUNE, 2, 30 
70 DATA JULV, 4, 31, AUGUST, 0,31, SEPTEMBER, 3, 30 
30 DATA OCTOBER, 5, 31, NOVEMBER, 1,30, DECEMBER, 3, 31 
90 DATA DECEMBER, 3, 31 

100 for 1=1 to mn:read mon$,fd,ndavs:next I 

110 PRINT CHR*<273>; "z",' 

120 CN=FD*10-5:LN=9 

130 FOR 1=1 TO NDAVS 

140 CN=CN+10 

150 IF CN<72 THEN GOTO 180 

160 LN=LN+3!CN=5 

170 IF LN>21 THEN LN=22:CN=CN+7: 



SL$M;HR*<8>+CKR*<8>+CHR*<&>+CHR*<8>+CHR*<:8> + 

CHRS < S > + ' V " +CHRS < 27 > + " fix " 
iR8 Gn=:UB £20 t 

190 PRINT IJSLL* 
200 NEXT I 

210 LN=2.'CN=5: GOSUB 820 

220 STRT=i:FIHISH=70:CHRNMB=205:GOSUB S60-' TOP BORDER 
230 PRINT CHR$<27); H 3 ,, .:CHR$<187>; 
240 PRINT CHR$<27>; ,, D ,, ;CHR*<27);* , B"; 
25© STRT=i:FINISH=20:CHRNMB=186:GOSllB 910" RIGHT BORDER 

26© rem:ln=24:cn=s:gosub 720 

270 ln=23:cn=5! gosub 820 

280 strt=i:finish=70:chrnmb=205:gosub 860-' bottom border 

290 PRINT CHR$<27>; ,, 8 ,, ;CHRfa38>; 

300 ln=2:cn=s:gosub 820 

310 PRINT CHRt<27>; M 8 H ;CHR$<201>; 

320 PRINT CHR$C27>; ,, B ,, ;CHR$<27>; ,, D"; 

330 STRT=i:FINISH=20:CHRNMB=136:GOSUB 910-' LEFT BORDER 

340 PRINT CHR$<27;»;"S H ;CHRf<200> 

350 LLN=3 

360 FOR H=l TO 2 

370 ln=ln+2:cn=s:gosub 820 
380 print chr$<27>;"8 ,, jchr*<204>j 
390 strt=i:finish=69:chrnmb=205:gosub 360" horz lines 1 & 2 

400 PRINT CHR*<27>;"S";CHR$a85>; 
41© NEXT H 

420 LN=6:CN=7:G0SUB 820 

430 PRINT "SUNDAY MONDflV TUESDfiV WEDNESDAY "J 

440 PRINT "THURSDRV FRIDAY SATURDAY"; 

450 LN=*7 

460 FOR LC=1 TO 4 

470 CN=5ILN=LN+3:G0SUB 820 

430 PRINT CHR$<27>;"3 M ;CHR$<199>; 

490 STRT=i:FINISH=69."CHRNMB=196:G0SUB S60" HORZ LINES 3 TO 6 

500 PRINT CHR$<27>; ,, 3 ,, ;CHR$<132> 

510 NEXT LC 

520 CN=5 

530 FOR CC=1 TO 6' VERT LINES 1 TO 6 

540 cn=cn+10:ln=5:gosub 820 

550 print chr$<27>; ,, 3 ,, ;chr$<209); 

560 GOSUB 970 

570 PRINT CHR*<27>; ,, 8"JCHR*<179>; 

580 GOSUB 970 

590 PRINT CHR*<27>;"8";CHR*<216>J 

600 FOR 11=1 TO 5 

610 GOSUB 970 

620 PRINT CHR$C27>; ,, 3 ,, ;CHR$<179>J 



CURSOR OFF 
CURSOR ON 



£-39 G0SUE.P73 

64Q PRINT CHR^-:27>; n S M ;CHR?':i79>: 

650 GOSUB 970 

660 PRINT CHR*<27>;*'3";CHR*<!97>; 

670 NEXT II 

6S0 PRINT CHR$<27>;"D"; 

690 PRINT CHR$<27>; ,, 8 ,, .:CHR$<207>.: 

700 NEXT CC 

710 CN=35ILN=2: GOSUB S20 

720 PRINT "VICTOR 900O"; 

730 CN=2S:LN=3: GOSUB 320 

74© PRINT "CALENDAR DEMONSTRATION "J 

750 CN=3S:LN=4: GOSUB 820 

760 PRINT MQN*;" "JVR* 

77© PRINT CHR$<27>; n x ,, ; ,, 5"' 
780 CONTTKEV*=INKEV$ 
790 IF CONTKEV$="" THEN GOTO 780 
SO© PRINT CHR$<27;>;' , y ,, ; ,, 5 , " 
310 STOP 

820 REM POSITION CURSOR ROUTINE. 

S3© LR=LN+32:Cfl=CH+32 

840 PRINT CHR$<27>; ,, Y ,, ;CHR$afl>;CHR$<:Cfl>; 

350 RETURN 

S60 REM WRITE LINE OF GIVEN CHARACTER TO CRT. 

870 FOR I=STRT TO FINISH 

380 PRINT CHR$<27>; ,, 3"JCHR$<:CHRNMB>; 

890 NEXT I 

900 RETURN 

910 REM WRITE COLUMN OF GIVEN CHRRflCTER TO CRT. 

920 FOR I=STRT TO FINISH 

930 PRINT CHR$<27>.: ,, 8 ,, ;CHR$<CHRNMB>; 

940 PRINT CHR*<27>; ,, D ,, ;CHR*<27>; ,, B"; 

950 NEXT I 

960 RETURN 

970 REM MOVE CURSOR DOWN ONE LINE & LEFT ONE CHARACTER. 
930 PRINT CHR$<27); ,, B ,, ;CHR$<27>J ,, D ,, ; 
990 RETURN 



The following program will display a bar chart showing the '4 sales 
of a corporation for the years 1975 to 1931 for each product 
category <see Figure 8>. 



1© REM BAR CHART DEMONSTRATION <BARCHART.BAS> 



20 UIDTH 255 

3Q DEFINT ft-Z 

4Q PRINT CHRt<27>;"E"J 

50 PRINT " PROFITABLE PRODUCTS INC. -"J 

60 PRINT " % SALES BV PRODUCT CflTEGORV" 

70 DIM CIfl<4>:CIAa>=176:CIA<2>=177:CIA-:3>=17S:CIA<4>=219 

30 PC=110' FORM VERT SCALE 

90 ln=0:cn=©:gosub eis. 

100 FOR 1=1 TO 11 

110 PC=PC-10 

120 PRINT " ".: 

130 PRINT CHR$<27>;"8 M ;CHR$<179> 

140 PRINT USING "###"; pc; 

150 PRINT CHR$<27>; M u ; 

160 PRINT CHR*<27>; ,, 8 ,, ;CHR*<179>; 

170 PRINT CHR$<27>;"1" 

180 NEXT I 

190 LN=2i:CN=4:G0SUB 610 FORM HORIZONTAL 

SCALE 

200 PRINT CHR$<27>; ,, M ; 

210 PRINT " 

220 PRINT CHR$<27>;"1 M ; 

230 PRINT " 1975 1976 1977 1978 1979 1930 1931 "J 

240 RESTORE 

250 CN=© 

260 FOR V=l TO 7 

270 CN=CN+6:LN=2:G0SUB 61© " 

230 FOR IC=1 TO 4 

290 RERD LMT 

300 charid=cia<ic> 

310 for ia=1 to lmt*2 

320 print chr$<27>;"s";chr$<charid>; 

330 print chr$<27>; m 3 m ;chr$<charid>; 

340 print chr*<27); ,, 8 ,, ;chr$<charid>j 

350 print chr*<27>;"3 h ;chrf<charid>; 

360 print chr$<s>;chr$<8>;chr$<3>;chr*<s>;chr$<27>; n b m ; 

370 NEXT IA 
380 NEXT IC 
390 NEXT V 

40© LN=0:CHARID=176:GOSUB 650' . DISPLAV LEGEND 

410 PRINT "COMPONENTS"; " 

420 CHARID=177IG0SUB 65© 

430 PRINT "SUB-ASSEMBLIES"; 

440 CHARID=17S:G0SUB 650 

450 PRINT "HARDWARE SYSTEMS" 

460 CHARID=219:G0SUB 650 

470 PRINT ."SOFTWARE"; 



4 SO PRINT CHF^-:27> .•".::"; "5"; '' CURSOR OFF 

49Q CONTKEV* = I NKEY* 

506 IF CONTKEY*= M " THEN GOTO 490 

510 PRINT CHR*<27>; ,, y ,, ;"5"" CURSOR OH 

520 STOP 

530 REM THE DATA IS FOR THE YEARS 1975 TO 1931. 

540 DATA 7,2,1,0 

550 DATA 6,2,2,0 

560 DATA 5,2,3,0 

570 DATA 6,1,3,0 

530 DATA 5,1,3,1 

590 DATA 4,1,4,1 

690 DATA 2,1,4,3 

610 REM POSITION CURSOR ROUTINE. 

620 LA=LN+32ICA=CN+32 

630 PRINT CHR*<27>; M V ,, ;CHR$<LA> 4 , , CHRf<CA>; 

640 RETURN 

650 REM GENERATE LEGEND ROUTINE. 

660 LN=LN+4I CN=55: GOSUB 610 

670 FOR J=l TO 4 

630 PRINT CHR$<27), ,,, 3 ,, ;CHRf<CHARID>,' 

690 NEXT J 

700 LN=LN+i:CN=55I GOSUB 610 

710 RETURN 

720 END 



The following program will display the sales of a corporation for 
the years a 1975 to 1973 by product category. The display will 
illustrate these sales using three dimensional blocks constructed 
only from standard graphic characters. 

10 REM 3-DIMENTION BAR GRRPH DEMONSTRATION C3D.BAS) 

20 WIDTH 255 

30 DEFINT A-Z 

40 PRINT CHRf<27>J ,, E"J 

50 PRINT " PROFITABLE PRODUCTS INC. - "J 

60 PRINT "SALES BV PRODUCT CATEGORV IN MILLIONS OF $" 

70 DIM CIA<4>:CIA<1>=176:CIA<2>=177:CIA<3>=173:CIA<4)=219 

S© PC=110' FORM VERT SCALE 

90 LN=0."CN=0: GOSUB 69© 

100 FOR 1=1 TO 11 

110 PC=PC-10 

120 PRINT M 

130 PRINT CHR*(27>, , "8 ,, ;CHR$<179> 

140 PRINT USING "###",' PC.: 



15G PRINT CHRf<27:-; M 0'; 

1 60 PRI NT CHRt <27> ; " * " J CHR* < 1 7? > ; 

17G PRINT CHR*<27>; ,, 1" 

IS© NEXT I 

19© LN=2i:CN=4:G0SUB 6990 

SCALE 

28© PRINT CHR*<27>;"0"; 

21© PRINT " 



FORM HORIZONTAL 



20 PRINT CHR*<27>;"1"; 



23© PRINT " 
240 RESTORE 



1975 



1976 



1977 



1978"; 



250 FOR 7=1 TO 4 

260 CN=66-<V*12>:LN=2i:G0SUB 698 

270 FOR IOl TO 4 

230 CN=CN-6:LN=21:G0SUB 69© 

290 RERD LMT 

300 CHflRID=CIfl<IC> 



31© FOR IA=1 TO LMT' FORM FACE OF BLOCK 

320 PRINT CHR$<27;>;"S ,, ;CHR$<CHfiRID>; 

330 PRINT CHR$<27>; ,, S ,, ;CHR*<XHflRID>; 

340 PRINT CHR$<27>J ,, 3 ,, ;CHR$<CHRRID>J 

350 PRINT CHR$<27>; n S ,, ;CHR*<CHfiRID;>; 

360 PRINT CHR$<8>;CHR*<S>;CHR*<S);CHR$CS>;CHR$<27>; ,, ft ,, J 

370 NEXT Ifl 



380 IF LMT=0 THEN GOTO 49© 

390 PRINT "/"•;' 

400 FOR IA=1 TO 3 

410 PRINT CHR*'C27); ,, 3 ,, ;CHR$a96>; 

420 NEXT Ifl 

430 PRINT 'V»; 

440 CN=CN+4:LN=22-LMT:G0SUB 690' 

450 FOR IA=1 TO LMT 

460 PRINT CHR$<27>; n S";CHR$<179>J 

470 PRINT CHRt<27>;CHR$<S>;CHR*<27>J ,, B"; 

430 NEXT Ifl 

490 NEXT IC 
500 NEXT V 

510 LN=@:CHflRID=176:G0SUB 730' 
520 PRINT "COMPONENTS"; 
530 CHftRID=177:G0SUB 73© 
540 PRINT "SUB-ASSEMBLIES" ; 
550 CHfiRID=17S:G05UB 730 
560 PRINT "HARDWARE SS'STEMS" 
570 CHARID=219:G0SUB 73© 
530 PRINT "SOFTWARE" J 



FORM TOP OF BLOCK 



FORM SIDE OF BLOCK 



DISPLAV LEGEND 



590 PRINT CHR$'C27>; ,, ;< ,, ; ,, 5 ,, ;' 



CURSOR OFF 



600 CONTKEV*=INKEV$ 

610 IF CONTKEV*= ,,M THEN GOTO 668 

620 PRINT CHR$<27>;"y";"5"' CURSOR ON 

636 STOP 

640 REM THE DfiTfi IS FOR THE VEflRS 1975 TO 1978. 
650 DATA IS, 15, 11,7 
660 DflTfi 9, 7, 5.. 2 
670 DflTfi 3,5,2,0 
6S0 DflTfi 7,5,2,0 

690 REM POSITION CURSOR ROUTINE. 

700 Lfl=LN+32:Cfl=CN+32 

710 PRINT CHR$<27>, ,,, V ,, ;CHR$<Lfi>;CHR$<Cft;'; 

720 RETURN 

730 REM GENERATE LEGEND ROUTINE. 
740 LN=LN+4:CN=55:G0SUB 699 
750 FOR J-l TO 4 

760 PRINT CHR*<27>; M 3";CHR*CCHfiRID>.: 
770 NEXT J 

730 ln=ln+i:cn=55:gosub 69© 

790 RETURN 
300 END 
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VICTOR 9660 CHARACTER GRAPHICS 



ABSTRACT 



This document provides on introduction to the character graphics 
capabilities of the Victor 9000. Terms are defi ned> the Victor 
9008 Display System is discussed/ available character sets are 
pictured* and short BASIC prosrams are included to aid in 
displaying individual characters from the set as well as the 
complete set. Additional short BASIC programs are included to 
demonstrate the usefulness of the TAB function in displaying 
graphics and to generate additional illustrative displays using 
the features di scribed above. 
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1. INTRODUCTION 

Character Graphics is defined as the process of constructing 
fundamental graphic forms by using a previously defined character 
set. The VICTOR 9000 provides an extended capability through 
special characters within selected character sets <eg* Victor 
International) or through the character creation utility. 

This document does not address the method and use of the High 
Resolution bit mapped graphics capability of the VICTOR 90OO. 
This is covered by other documentation on the subject of HI RES 



